home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / DIRECT.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  154 lines
  1. 10 POKE56,64:CLR:GOTO2015
  2. 15 PRINT"[147]"
  3. 20 PRINT"ENTER DEVICE #, TO LOAD DISK DIRECTORY."
  4. 22 PRINT"(ENTER 0 TO EXIT.)"
  5. 25 PRINT"  8[145]":INPUTD
  6. 30 IFD-8AND252THENPOKE56,160:END
  7. 31 POKE186,D
  8. 32 SYS50141:REM OPEN CHANNEL TO DOS BUFFER
  9. 33 IFPEEK(783)AND1THEN600
  10. 34 T=56334:POKET,.
  11. 35 SYS51432:REM OPEN COMMAND CHANNEL
  12. 36 POKE251,.:POKE252,64
  13. 37 PRINT"[147]LOADING DIRECTORY FROM DISK"
  14. 40 SYS49631:REM LOAD DIRECTORY BLOCKS INTO RAM
  15. 42 SYS51504:REM (143) = # OF FILE ENTRIES
  16. 50 SYS51453:REM PRINT HEADER TO SCREEN
  17. 60 PRINT"PRESS F1 TO VIEW DIRECTORY."
  18. 70 PRINT"PRESS F3 TO ARRANGE IN DESIRED ORDER."
  19. 80 PRINT"PRESS F5 FOR ALPHABETICAL ORDER."
  20. 90 PRINT"PRESS F7 TO EXIT."
  21. 95 POKET,1
  22. 100 GETA$:IFA$=CHR$(133)THENF=1:GOTO150
  23. 110 IFA$=CHR$(134)THEN270
  24. 120 IFA$=CHR$(135)THEN180
  25. 130 IFA$=CHR$(136)THENPOKE56,160:END
  26. 140 GOTO100
  27. 150 PRINT"[147]     USE CURSOR UP/DOWN TO SCROLL."
  28. 160 PRINT"      PRESS RETURN FOR LAST MENU."
  29. 165 PRINT"****************************************"
  30. 166 IFFTHEN400
  31. 167 SYS51562:REM INITIALIZE REGISTERS
  32. 168 SYS49475:REM PRINT FIRST 22 LINES TO SCREEN
  33. 169 SYS51515:REM INITIALIZE REGISTERS
  34. 170 SYS50685:REM GET FROM KEYBOARD BUFFER
  35. 176 SYS51453:REM PRINT HEADER TO SCREEN
  36. 177 PRINT"":GOTO200
  37. 180 POKET,.:POKE2,.:PRINT"[147]ONE MOMENT PLEASE..."
  38. 181 SYS51777:REM FORMAT DISK NAME DATA AND TRANSFER
  39. 182 SYS49193:REM FORMAT FILE ENTRY DATA AND TRANSFER
  40. 183 SYS49841:REM FORMAT # OF FREE BLOCKS DATA AND TRANSFER
  41. 184 SYS51825:REM NUMBER FILE ENTRIES IN DIRECTORY ORDER
  42. 185 SYS51583:REM NUMBER FILE ENTRIES SEQUENTIALLY
  43. 186 SYS51881:REM LINEAR SORT
  44. 188 SYS51647:REM TRANSFER DATA AND REVERSE VIDEO
  45. 190 SYS51453:REM PRINT HEADER TO SCREEN
  46. 195 F=.:PRINT"                  DONE"
  47. 198 PRINT"                  [163][163][163][163]"
  48. 200 PRINT"PRESS F1 TO SAVE PROCESSED DIRECTORY"
  49. 205 PRINT"BACK TO DISK."
  50. 210 PRINT"PRESS F3 TO VIEW RESULTS."
  51. 215 PRINT"PRESS F5 TO WORK ON ORIGINAL DIRECTORY."
  52. 220 PRINT"PRESS F7 TO LOAD DISK DIRECTORY."
  53. 225 POKET,1
  54. 230 GETA$:IFA$=CHR$(133)THEN750
  55. 240 IFA$=CHR$(134)THEN150
  56. 250 IFA$=CHR$(135)THEN50
  57. 255 IFA$=CHR$(136)THEN15
  58. 260 GOTO230
  59. 265 SYS51453:REM PRINT HEADER TO SCREEN
  60. 267 PRINT"":GOTO200
  61. 270 SYS51453:REM PRINT HEADER TO SCREEN
  62. 275 PRINT"MOVE POINTER WITH CURSOR UP/DOWN"
  63. 280 PRINT"TO SELECTION FOR FIRST DIRECTORY ENTRY"
  64. 290 PRINT"AND PRESS F1.  ENTRY WILL APPEAR AT TOP"
  65. 300 PRINT"OF LIST IN REVERSE VIDEO.  REPEAT FOR"
  66. 310 PRINT"SECOND CHOICE, ETC.  SELECTIONS WILL"
  67. 320 PRINT"LINE UP IN REVERSE VIDEO.  PRESS F3 TO"
  68. 330 PRINT"CANCEL LAST SELECTION.  PRESS L TO LOCK"
  69. 340 PRINT"FILE. SHIFTED L TO UNLOCK.  S, P, U, TO"
  70. 350 PRINT"CHANGE FILE TYPE TO SEQ, PRG, USR."
  71. 355 PRINT"R TO RESET DIRECTORY."
  72. 360 PRINT"WHEN FINISHED, PRESS RETURN FOR MENU."
  73. 365 PRINT"PRESS RETURN WHEN READY.";
  74. 370 GETA$:IFA$=CHR$(13)THEN380
  75. 375 GOTO370
  76. 380 PRINT"[147]       CURSOR U/D MOVES POINTER."
  77. 385 PRINT"   S, P, U, L = SEQ, PRG, USR, LOCK."
  78. 390 PRINT"[204] = UNLOCK.   F1 = SELECT.  F3 = CANCEL.";
  79. 395 PRINT"R = RESET.                RETURN = MENU.";
  80. 397 PRINT"****************************************"
  81. 399 GOTO650
  82. 400 POKET,.:POKE2,.
  83. 440 SYS49793:REM FORMAT DISK NAME DATA AND TRANSFER
  84. 445 SYS49193:REM FORMAT FILE ENTRY DATA AND TRANSFER
  85. 450 SYS49841:REM FORMAT # OF FREE BLOCKS DATA AND TRANSFER
  86. 455 SYS51562:REM INITIALIZE REGISTERS
  87. 457 SYS49475:REM PRINT FIRST 22 LINES TO SCREEN
  88. 460 SYS51515:REM INITIALIZE REGISTERS
  89. 465 POKET,1
  90. 470 SYS50685:REM GET FROM KEYBOARD BUFFER
  91. 475 GOTO50
  92. 600 PRINT"[147]?DEVICE";D;"NOT PRESENT":CLR:GOTO20
  93. 650 POKET,.:POKE2,.
  94. 652 SYS49793:REM FORMAT DISK NAME DATA AND TRANSFER
  95. 655 SYS49193:REM FORMAT FILE ENTRY DATA AND TRANSFER
  96. 657 SYS49841:REM FORMAT # OF FREE BLOCKS DATA AND TRANSFER
  97. 660 SYS51532:REM INITIALIZE REGISTERS
  98. 662 SYS49475:REM PRINT FIRST 20 LINES TO SCREEN
  99. 665 SYS51553:REM INITIALIZE REGISTERS
  100. 675 SYS49934:REM ADD ARROWS AND INDICES TO FILE DATA
  101. 677 SYS50966:REM PRINT ARROW TO SCREEN
  102. 680 POKET,1
  103. 685 SYS50414:REM GET FROM KEYBOARD BUFFER
  104. 690 SYS51453:REM PRINT HEADER TO SCREEN
  105. 691 PRINT"PRESS F1 TO SAVE PROCESSED DIRECTORY"
  106. 692 PRINT"BACK TO DISK."
  107. 695 PRINT"PRESS F3 TO RETURN TO ARRANGE MODE."
  108. 700 PRINT"PRESS F5 TO WORK ON ORIGINAL DIRECTORY."
  109. 705 PRINT"PRESS F7 TO LOAD DISK DIRECTORY."
  110. 710 GETA$:IFA$=CHR$(133)THEN740
  111. 715 IFA$=CHR$(134)THEN800
  112. 720 IFA$=CHR$(135)THEN50
  113. 725 IFA$=CHR$(136)THEN15
  114. 730 GOTO710
  115. 740 F=1
  116. 750 SYS51453:REM PRINT HEADER TO SCREEN
  117. 755 PRINT"IF YOU PRESS F1, ALL DIRECTORY ENTRIES,"
  118. 760 PRINT"BOTH SELECTED AND UNSELECTED, WILL BE"
  119. 765 PRINT"WRITTEN BACK TO DISK."
  120. 770 PRINT"OR PRESS F3 FOR LAST MENU."
  121. 775 GETA$:IFA$=CHR$(133)THEN790
  122. 780 IFA$=CHR$(134)THEN787
  123. 785 GOTO775
  124. 787 IFFTHEN690
  125. 788 GOTO265
  126. 790 SYS51014:REM REARRANGE AND MODIFY FILE DATA
  127. 792 PRINT"[147]SAVING DIRECTORY TO DISK"
  128. 793 SYS50141:REM OPEN CHANNEL TO DOS BUFFER
  129. 794 SYS51432:REM OPEN COMMAND CHANNEL
  130. 795 SYS51284:REM SAVE DIRECTORY TO DISK
  131. 799 GOTO15
  132. 800 PRINT"[147]       CURSOR U/D MOVES POINTER."
  133. 805 PRINT"   S, P, U, L = SEQ, PRG, USR, LOCK."
  134. 810 PRINT"[204] = UNLOCK.   F1 = SELECT.  F3 = CANCEL.";
  135. 815 PRINT"R = RESET.                RETURN = MENU.";
  136. 820 PRINT"****************************************"
  137. 840 SYS50880:REM PRINT TO SCREEN STARTING WITH LAST SELECTION
  138. 845 SYS50414:REM GET FROM KEYBOARD BUFFER
  139. 855 GOTO690
  140. 1000 OPEN15,8,15
  141. 1010 INPUT#15,A,B$,C,D
  142. 1020 PRINTA:PRINTB$:PRINTC,D
  143. 1030 CLOSE15:END
  144. 2015 PRINT"[147]ONE MOMENT PLEASE..."
  145. 2020 P=PEEK(45)+256*PEEK(46)-1
  146. 2025 IFPEEK(P)THENP=P-1:GOTO2025
  147. 2030 FORI=.TO22:READY:POKE52000+I,Y:NEXT
  148. 2035 POKE53,243:POKE54,202:POKE251,12:POKE252,245
  149. 2040 POKE254,P/256:POKE253,PAND255:SYS52000
  150. 2045 POKE2063,48:GOTO15
  151. 2050 DATA160,0,177,253,145,53,152,208
  152. 2055 DATA4,198,54,198,254,136,230,251
  153. 2060 DATA208,240,230,252,208,236,96
  154.